home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dskut
/
ash005a.zip
/
ebcltest.bcl
< prev
next >
Wrap
Text File
|
1994-02-06
|
879b
|
35 lines
CHAIN CHAINTST.BCL goto chaintest1
:top
gosub testproc
box 5 5 76 15 white blue 2 shadow
write 7 6 white blue "Delaying for 2 seconds..."
delay 200
box 6 6 77 17 LightGray red 1 shadow Explode
box 4 4 75 14 Black Cyan 3 shadow
chain CHAINTST.BCL goto chaintest2
box 5 5 76 15 white blue 5 shadow Explode
box 5 5 76 15 white blue 2 shadow
write 8 7 white blue "This is some test text..."
write 8 8 white blue "This is the second test line"
write 8 9 white blue "Delaying for another 2 seconds....Then clearing the screen"
delay 200
cls
exit
:testproc
box 5 5 76 7 white blue 2 shadow explode
write 22 6 white blue "This was called via a GOSUB command."
gotoxy 1 23
exec "pause"
return
:teststart
cls
write 1 1 "This was executed from the label TESTSTART."
write 1 2 "Press any key to continue, or wait 10 seconds..."
delaykey 1000
goto top